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BASIC 


my La 
instrucción 
GOTO 


AS instrucciones de 
los programas que 
hemos visto hasta 
ahora se ejecutaban 
siempre según el or- 
den creciente del nú- 
mero de línea. Sin 
embargo, este orden 
se puede alterar utilizando la instrucción 
GOTO, que posibilita la transterencia del 
control de ejecución a cualquier otra lí- 
nea del programa, anterior o posterior. El 
formato general es el siguiente: 


GOTO <número de línea> 
La instrucción GOTO realiza un salto in- 
condicional al número de línea indicado. 


El programa 1 es un ejemplo del funcio- 
namiento de GOTO. 


REM ARAAEAAAEAEAEREAA NARA RARA 
REM * CASTIGO AL ORDENADOR + 
REM ORREXALERA ARENAL RA RARA RAR 


"VACA SE ESCRIBE CON Y" 
GOTO 50 


En el programa hemos formado lo que 
se denomina un bucle infinito, es decir, 
un conjunto de instrucciones que se repi- 
te infinitas veces. En este caso el bucle in- 
finito se está formando por las líneas 50 y 
60. Esto hace que la cadena VACA SE ES- 
CRIBE CON V se vaya imprimiendo en 
cada una de las líneas de la pantalla, 
Cuando la pantalla se complete, las fra- 
ses irán desapareciendo por la parte su- 


perior para poder seguir imprimiendo en 
las líneas inferiores indefinidamente. 

Evidentemente, cuando un programa 
tiene un bucle infinito, la ejecución no se 
detiene de forma espontánea. Para po- 
der detener la ejecución de un bucle de 
este tipo normalmente tendremos que 
pulsar una o dos teclas, dependiendo 
del tipo de ordenador. En la figura 1 po- 
demos ver las teclas usadas en las má- 
quinas en estudio. 


AMSTRAD ESC 
COMMODORE RUN/STOP 


IBM CTRL + BREAK 


MSX 
SPECTRUM 


CTRL + STOP 
BREAK 


y A Teclas que detienen la ejecución de un 
bucle infinito. 


Por lo general, un bucle infinito no sue- 
le tener mucho sentido; por tanto, deben 
evitarse en los programas, puesto que no 
conducen a nada. Sin embargo, pueden 
utilizarse en programas muy especiales, 
como, por ejemplo, la transformación del 
teclado del ordenador en un teclado 
musical. 

Esto no significa que la instrucción 
GOTO sea de poca utilidad, todo lo con- 
trario, podemos usarla en gran cantidad 
de programas, como veremos a conti- 
nuación. 


¡O Los bucles condicionales 


Podemos combinar la instrucción 
GOTO con la instrucción IF-THEN de modo 


que consigamos saltos condicionales, es 
decir, los bucles formados ya no serán in- 
finitos, sino que dependerán de una con- 
dición. Esto dará gran versatilidad a 
nuestros programas. 

Analicemos la estructura de la figura 2, 
que formará parte de muchos progra- 
mas. 


10 LET C=0 
20 LET C=C+1 


60 IF C<5 THEN GOTO 20 


A Esqueleto básico de un bucle 
condicional. 


En la línea 10 se asigna un valor inicial 
a la variable C que va a actuar como 
contador del número de veces que se va 
a repetir el bucle. Si el valor inicial es 0, 
como en este caso, se puede prescindir 
de la línea en todos los ordenadores, ex- 
cepto en el SPECTRUM. 

En la línea 20 se efectúa el incremento 
del contador. En este caso se trata de 
contar de uno en uno; por tanto, se suma 


20 REM * 


40 CLS 
50 LET C=0 
60 LET C=C+1 


Al ejecutarlo podemos observar que la 
cadena de la línea 70 se imprime en 
pantalla 15 veces, tal y como está esta- 
blecido en la condición de la línea 80. 

Veamos otro ejemplo más práctico. El 
programa 3 utiliza un bucle para imprimir 


en pantalla los números naturales, sus' 


cuadrados y sus cubos del intervalo que 
deseemos. 


10 REM Xerox” 
20 REM * TÁBLA NUMERICA 
30 REM HAHAHA LAR 
40 CLS 


REM AEXAELALELAAA REA ERRE 
EJEMPLO DE CONTADOR  * 
DQO REM ARRANCA AAA 


70 PRINT "ESTE MENSAJE SE REPITE 15 VECES" 
IF C«15 THEN GOTO 40 


1 al contenido de la variable C y el resul- 
tado se vuelve a almacenar en C, borrán- 
dose el antiguo contenido. Por ello la ins- 
trucción de la línea 20 podría traducirse 
como «Guarda en la variable C lo que 
había antes más 1». Lógicamente, si inte- 
resara un incremento distinto de 1 se po- 
dría utilizar también incluso valores nega- 
tivos, que darían lugar a decrementos. 
Por ejemplo: 


20 LET C=C+5 
contaría de cinco en cinco Y: 
20 LET. 


C=C | 
contaría de uno en uno, pero hacia atrás. 


Finalmente, todas las líneas comprendi- 
das entre la 20 y la 60 constituirán el 
cuerpo del bucle y se repetirán tantas 
veces como indique la línea 60, donde 
se encuentra la condición de finalización 
del bucle: sólo si el valor de C es menor 
que 5, el control volverá a la línea 20. Si 
no se cumple esta condición, la ejecu- 
ción del programa pasará a la línea si- 
guiente, si existe, y si no, se detendrá de- 
finitivamente. 

En el programa podemos ver un ejem- 
plo concreto: 


50 INPUT "TECLEE EL NUMERO INICIAL "¡NI 

60 INPUT "TECLEE EL NUMERO FINAL ";¿NF 

70 CLS 

20 1F NISNF THEN PRINT "TECLEE PRIMERO 
EL MENOR" :GOTO 50 

70 PRINT "NUMERO" ¡TAB(12);"CUADRADO” ; 
TAB(29)¡"cuBO" 

100 PRINT " 


"¡TABCID)," ú 
" 


TABL29)3" 
110 PRINT 
120 LET C=NI 
130 PRINT C;TAB(12)¡CxC;TABI29);0"2 
140 LET C= c+1 
150 1F C<=NF THEN GOTO 130 


La condición de la línea 80 no permite 
que el número inicial sea mayor que el fi- 
nal; por tanto, si tecleamos Jos números 
al contrario aparecerá en pantalla un 
mensaje de aviso y volverá a pedirnos los 
dos números. Las líneas 90 y 100 se en- 
cargan de imprimir en la parte superior 
de la pantalla un encabezamiento 
correcto. En la línea 120 se asigna el va- 
lor inicial al contador, que, lógicamente, 
coincide con el valor inicial que hemos 
tecleado. Finalmente las líneas 130 a 150 
constituyen el bucle que se repetirá has- 
ta que el contador alcance el número fi- 
nal tiecleado. En este caso hemos inverli- 
do el orden de las líneas, es decir, prime- 
ro se realiza la impresión en pantalla y 
después se incrementa el contador. 

En la figura 3 podemos ver la presenta- 
ción en pantalla tras una posible ejecu- 
ción. 


Número Cuadrado 
5 


| A | Presentación en pantalla del programa 3. 


En la figura 4 se resumen las caracterís- 
ticas generales de estos bucles condi- 
cionales. 


Su utilización permite realizar de 


forma repetida una serie de accio- 
nes. 


2. Son estructuras perfectamente de- 
limitadas: 
. Cuentan siempre con una prime- 
ra orden que señala su comien- 
ZO. 


e Y con otra, que se puede deno- 
minar de cierre, que señala el fi- 
nal del bucle. 

3. La forma más sencilla de un bucle 
con IF-THEN responde al esquema: 
Aumento del contador: Instrucción 
de comienzo. 

IF-THEN: Instrucción de cierre: Se 

comprueba el contador. 

4. Todas las instrucciones incluidas 
entre las de comienzo y cierre se- 
rán las que se ejecuten repetidas 
veces. 

5. El número de veces que se realice 
el bucle se especifica en la condi- 
ción final IF-THEN, donde se com- 
prueba si el contador ha alcanza- 
do ya el valor máximo que limita el 
número de vueltas que se darían. 


í W | Características generales de los bucles 
122) condicionales. 


Vamos a ver ahora un ejemplo algo di- 
ferente. El programa 4 nos permite hallar 
la media aritmética de una serie de da- 
tos numéricos. En este caso concreto cal- 
cula la edad media de un conjunto de 
personas. Este programa podríamos de- 
sarrollarlo con un contador y un bucle 
condicional si conociéramos de antema- 
no el número de datos que vamos a in- 
troducir. Sin embargo, vamos a suponer 
que no conocemos este número; por tan- 
to, utilizaremos un bucle del que sólo po- 
dremos salir al teclear un dato ficticio, 1. 
De todas formas, usaremos un contador 
para saber cuántos datos hemos introdu- 
cido. 


REM FXANLECURLENAEEARARAA 

20 REM * MEDIA DE DATOS  * 

D0 REM ARRE 

40 CLS 

50 LET C=0:LET S=0 

$0 INPUT "TECLEA LA EDAD (-1 PARA TERMI 
NAR) "¿E 

70 CLS 

S0 IF E=-1 THEN GOTO 130 

90 IF Et=0 OR E>100 THEN PRINT “EDAD NO 
VALIDA" :GOTO 40 

100 LET C=C+1 

110 LET S=S+E 

120 GOTO 40 

130 LET M=S/C 

190 PRINT "NUMERO DE DATOS: "¡TAB(205;C 

150 PRINT :PRINT 

/1160 PRINT "MEDIA ARITMETICA: "¡TABC20>,M N 


En la línea 50 asignamos el valor 0 a 
dos variables: C y $. La variable C actua- 
rá como contador, mientras que la varia- 
ble S funcionará como un acumulador, es 
decir, en esta variable se va a realizar la 
suma de todos los datos que tecleemos. 
La condición de la línea 80 comprueba 
si hemos tecleado el dato ficticio -1, en 
cuyo caso la ejecución saldrá del bucle, 
transfiriéndose el control a la línea 120, 
donde se calcula la media para, a con- 
tinuación, imprimir en pantalla los resul- 
tados (líneas 140 a 160). La condición de 
la línea 90 sirve para comprobar que no 
hemos tecleado una edad absurda (es 
imposible tener menos de O años y muy 
difícil superar los 100). En la línea 100 se 
incrementa el contador y en la 110 se 
suma la edad tecleada al acumulador; 
de este modo al salir del bucle tendre- 
mos todas las edades sumadas en la va- 


riable S, y podremos dividirla por C (nú- 
mero de datos) para calcular la media. 

En la figura 5 podemos ver el resultado 
de una posible ejecución. 


NUMERO DE DATOS: 10 


MEDIA ARITMETICA: 42,5 
oK 


TA S 
' A | Presentación en pantalla del programa 4. 


[IM Referencias 


explícitas 
a la memoria 


N el tomo 4 se trató 
de las referencias a 
la memoria y se dijo 
que la dirección físi- 
ca (20 bits) de una 
posición de memoria 
se obtienen sumando 
, - los contenidos de un 
«registro de segmento» (16 bits) y un «re- 
gistro de desplazamiento» (16 bits), pero 
desplazando 4 bits a la izquierda el «re- 
gistro de segmento» antes de la suma. 

El 8088 accede a las áreas de código, 
datos origen, datos destino y pila de eje- 
cución, utilizando implícitamente las pa- 
rejas de registros CS:IP, DS:SI, ES:DI y SS:SP. 
Por esta razón, instrucciones como 
LODSW, STOSW y RET no llevan operandos 
en los que se especifique la memoria a 
utilizar, ya que por definición acceden a 
las áreas de datos origen, datos destino 
y pila, respectivamente, sin posibilidad 
de otra alternativa. 

Independientemente de esto, en mu- 
chas instrucciones ejecutables uno de 
los operandos (pero nunca los dos) pue- 
de hacer referencia explícita a un byte o 
una palabra de memoria. En estas refe- 
rencias, la dirección física de la memo- 
ria referenciada (20 bits) se obtiene por 
el mismo procedimiento a partir de un 
«registro de segmento» (16 bits) y un 
«Aesplazamiento» (16 bits). En cada sen- 
tencia se pueden especificar estos com- 
ponentes, cosa que no ocurre en las re- 
ferencias implícitas. 

En resumen, en las instrucciones que 
hacen referencias explícitas a la memo- 
ria hay que definir: 


MAQUINA 8088 


— El «desplazamiento». 


— El «registro de segmento» (opcio- 
nal). 


— La longitud de la unidad de memo- 
ria referenciada (opcional). Es decir, hay 
que definir si se trata de una palabra o 
de un byte. 

El desplazamiento se puede definir uti- 
lizando constantes, etiquetas, registros 
base (BX o BP) y registros índice (SI o DI) 
combinados de muy variadas formas. A 
la hora de codificar las instrucciones se 
deben tener en cuenta las siguientes re- 
glas sintácticas: 


— Los registros deben ir entre corche- 
tes (ejemplo: (SI)). 

— Si se utilizan dos registros, ambos 
pueden ir en diferentes corchetes (ejem- 
plo: (BX) (DI) o encerrarse en los mismos 
separados por el signo más (ejemplo 
(BX+D1)). 

— Las etiquetas deben ir fuera de cor- 
chetes (ejemplo: LISTA). 

— Las constantes deben ir entre cor- 
chetes si van solas (ejemplo (8)) y pue- 
den ir fuera de corchetes si van acompa- 
ñadas (ejemplo (BP)+8). 

En las referencias explícitas a la memo- 
ria se puede definir el registro de seg- 
mento que se desee utilizar. Para ello 
basta con escribir uno de los cuatro po- 
sibles «registros de segmento» (DS, ES, CS 
y SS), delante del desplazamiento, sepa- 
rando ambos componentes por dos pun- 
tos. Ejemplos: CS:LISTA O ES:(BP+SI)+4. 

En caso de no especificarse, se utiliza 
un «egistro de segmento» elegido de 
acuerdo con las siguientes reglas: 

1. Sien el desplazamiento intervienen 
los registros BX, SI o DI, se toma por omi- 
sión el registro DS. 

2. Si en el desplazamiento interviene 
el registro BP, se toma por omisión el re- 
gistro SS. 


3. En caso de utilizar una etiqueta, se 
toma por omisión el registro que en la 
sentencia ASSUME se haya asociado al 
segmento al que pertenece la etiqueta. 

Las reglas se aplican en el orden defi- 
nido, de modo que, en caso de que pue- 
dan aplicarse dos o más reglas contra- 
dictorias, prevalecen las últimas sobre 
las primeras. 

Por último, también se puede definir en 
la instrucción la longitud de la unidad de 
memoria referenciada. Para ello, hay 
que anteponer las palabras WORD PTR si 
se desea hacer referencia a una palabra 
y BYTE PTR si se desea hacer referencia a 
un byte. Ejemplos: WORD PTR LISTA o BYTE 
PTR CS:LISTA (SI)(BP)+4. 

La especificación de longitud es obli- 
gatoria sólo en los casos en los que di- 
cha longitud no se pueda deducir del 
contexto. Si la etiqueta LISTA se define 
como «palabra» (word), no es necesario 
usar WORD PTR en las referencias en las 
que aparezca dicha etiqueta. 


Tipos de direccionamiento 
de la memoria 


Las diferentes formas de referenciar ex- 
plícitamente la memoria que acabamos 
de ver, dan lugar a los siguientes tipos de 
direccionamiento: 

— Direccionamiento directo. En el que 
se especifica una etiqueta, seguida op- 
cionalmente de una constante que se 
suma o resta a la misma. Por ejemplo, si 
se ha definido la etiqueta LISTA, se pue- 
den escribir instucciones que conten- 
gan como operando expresiones de los 
siguientes tipos: 

(20) 

LISTA 

LISTA (20) o LISTA+20 

LISTA (-7) o LISTA—7 


— Direccionamiento indirecto por me- 
dio de un registro base. En el que se es- 
pecifica el registro BX o el registro BP 
(que son los que pueden actuar como re-. 
gistros base) y una constante opcional 
aditiva o sustractiva. Ejemplos: 

(BX) 

(BP)+4 

(BX)-32 


Direccionamiento indirecto por medio 
de un registro índice. En el que se espe- 
cifica el registro Sl o el registro Dl (que son 
los que pueden actuar como registros ín- 
dices) y opcionalmente una constante 
aditiva o sustractiva. Ejemplos: 

(SI) 

(+9 

(DI)-17 


Direccionamiento indirecto utilizando 
un registro base y un registro índice. En el 
que se especifica uno de los dos regls- 
tros base y uno de los dos registros índi- 
ce, seguidos opcionalmente.por una 
constante aditiva o sustractiva. Ejemplos: 


(SI+BP) o (SI) (BP) 
(BX+51+9 O (5%) (SI)4:9 
(BP+DI)-17 o (BP) (DI)-17 


' La instrucción MOV 


Esta es una de las sentencias básicas 
del ensamblador y por ello va a ser la pri- 
mera sentencia ejecutable que vamos a 
describir con detalle. Mediante esta sen- 
tencia se puede copiar un byte o una pa- 
labra desde un «origen» a un «destino». 

El formato de la sentencia MOV es el si- 
guiente: 


[etiquetal MOV 


destino, origen 


Donde la etiqueta es opcional como 
en todas las sentencias ejecutables. 
MOV es el código de operación. Y «ori- 
gen» y «destino» son los dos operandos 
asociados a esta sentencia. Estos ope- 
randos pueden ser: datos inmediatos, re- 
gistros, registros de segmento y referen- 
cias explícitas a la memoria. 

Se denominan «datos inmediatos» u 
«operandos inmediatos» a las constantes 
que aparecen escritas directamente en 
la sentencia y que representan el valor 
que se quiere copiar al destino, 

Todos los registros pueden ser «origen» 
y «destino» de la instrucción MOV (ex- 
cepto el CS que no puede ser destino). A 
la hora de analizar las combinaciones 
posibles se separan los registros de seg- 
mento (DS, ES, SS y CS) de todos los de- 
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más, porque presentan algunas restric- 
ciones. 

De las 16 combinaciones que pueden 
surgir cuando estos cuatro conceptos se 


dato inmediato 
registro 
registro de segmento —— 


memoria 


A continuación se dan ejemplos de to- 
dos los tipos de instrucciones MOV, don- 
de por simplicidad se ha utilizado la pa- 
labra MEMORIA para expresar cualquiera 


utilicen como origen y como destino, hay 
nueve combinaciones válidas y siete in- 
válidas que se resumen en la siguiente 
tabla: 


a dato inmediato 


a registro 


a registro de segmento 


OZ--0muo 


a memoria 


de las formas de referenciar explícita- 
mente la memoria que se han visto al 
principio de este tema. 


a a registro a 
registro de segmento (1) memoria 
; MOV AX, 12000 MOV MEMORIA, 1234 
de dato inmediato MOV CL,5 MOV MEMORIA, 1 
de registro de palabra MOV AX, BX MOV ES, AX MOV MEMORIA, BX 
AX, BX,CX,DX,S1,DI,BP,SP MOV CX,DX MOV SS,DX MOV MEMORIA, CX 


de registro de byte MOV AL, BL 
AH, AL, BH, BL, CH, CL, DH, DL MOV CL,AH 


, 

, 
de registro de segmento MOV CX,DS 
DS,E3,SS,CS MOV AX,ES 


MOV DH, MEMORIA 
MOV BX,MEMORIA 


MOV MEMORIA, BH 
MOV MEMORIA, AH 


MOV ES,MEMORIA 
"MOV DS, MEMORIA 


(1) Excepción: El registro de segmento CS no se puede usar como "destino". 


Se incluye, por último, el listado del 
programa PROG3, que copia un mensaje 
desde un área de datos al buffer de pan- 
talla. El programa no pretende usar el 
método más eficaz de realizar esta tarea, 


sino utilizar la mayor variedad posible de 
ejemplos de instrucciones MOV. 

En un comentario se recuerda que la 
dirección del buffer de pantalla debe 
cambiarse para que funcione con la 
pantalla de color. 


? ABCDEFGHIJKLM” 
>? NOPQRSTUVWXYZ$> 


SEGMENT 
NOMBRE 1 PROC 


, 

ASSUME —CS:CODIGO,ES: DATOS 
; 

PUSH DS 

MOV AX, 0000 

PUSH AX 


MOV AX, DATOS 
MOV ES, AX 


MOV AX, OBOOOH 
MOV DS, AX 
AH, OF1H 
BP, 500H 


BX,0 


3 
ETIQUETA1: MOV 
INC BX 


AL,ES:MENSAJE [BXJ 
; 

cmP AL,>$* 

JE ETIQUETA2 


MOV DS: [BPI,AX 


BP,2 


JMP ETIQUETA1 


3 
ETIQUETA2: 
RET 


3 
NOMBRE 1 ENDP 


CcoDIGO0 ENDS 
END 


Programa PROG3 
Comienzo del segmento DATOS 


Definición de la etiqueta MENSAJE 


¿ con datos literales. 


Fin del segmento DATOS 


Comienzo del segmento CODIGO 
Comienzo del procedimiento NOMBRE i 


3 Registros de segmentos asumidos. 


Prepara en la pila 

la dirección 

de terminación. 

Carga el registro de segmento ES con 
la dirección del segmento de datos. 


OBBOO0H (Para pantalla de color) 
Carga el registro de segmento DS con 
la dirección del buffer de pantalla. 
Atributo del mensaje en la pantalla. 
Posición inicial sobre la pantalla. 
Valor inicial cel registro que se 
utilizará para referenciar los 


cracteres del mensaje. 


Copia caracter del mensaje en AL 
Incrementa el contador de caracteres 


Comprueba si es el último caracter 
de MENSAJE para salir del bucle. 


Copia sobre el buffer de pantalla 
el caracter (AL) y el atributo (AH). 


Suma 2 al contador del buffer de 
pantalla. (porque cada caracter 

va acompañado de un atributo). 
Vuelve a repetir el proceso 
Etiqueta de la sentencia siguiente. 
Recupera de la pila la dirección 
de terminación. 


Fin del único procedimiento. 


3 Fin del segmento CODIGO 
3 Fin del programa 


laberintos 


STE programa nos per- 
mitirá crear nuestros 
propios laberintos de 
forma que los poda- 
mos utilizar en cual- 
quiera de los progra- 
mas que nosotros ha- 
gamos. Lo único que 


PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTIÓN + DE JUEGOS 


Programa: 
Diseñador de ESPERA: UN MOMENTO 


J 


hay que darle al programa es la anchura QUIERES OTRO LABERINTO (S/N) 


y la altura que queramos que tenga el la- 
berinto. el resto lo hará el ordenador. To- 
dos los laberintos tendrán solución. Esto 
es, todos los laberintos tendrán una entra- 


da y una salida. 


LA, Ejemplo de un laberinto realizado por el 
programa «diseñador de laberintos». 


El programa se realizó en un IBM pc, Para los ordenadores AMSTRAD, COMMO- 
pero puede ser ejecutado en cualquier DORE y MSX se proponen las siguientes 
ordenador que disponga de GWBASIC. modificaciones. 


AMOO OOOiIOloloK 


* LABERINTOS * 
ES 


(c) EDICIONES SIGLO CULTURAL 
(ec) 1987 


1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 


PRINT "LABERINTOS" 

PRINT "=== -=====-=-- P 
PRINT:PRINT 

PRINT " Este programa nos permitira" 
PRINT "crear laberintos de distintas" 
PRINT “dimensiones y siempre con” 
PRINT "solucion." 

PRINT ” 

PRINT " Para ello, solo tenemos que" 
PRINT "dar el ancho y el largo que” 


1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 


1470 
1480 


1490 
1500 


1510 


1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 


PRINT "queremos que tenga el laberinto. " 


PRINT 

PRINT "PULSA UNA TECLA PARA EJEMPLOS" 
LET A$=INKEYS$ 

IF A$="" THEN GOTO 1210 
CLS 

PRINT "LABERINTO DE 3x3" 
BRINDA o e E 
PRINT:PRINT:PRINT 

LET L=3 

LET A=3 

GOSUB 2000 

GOSUB 4000 

PRINT 

PRINT "PULSA UNA TECLA PARA VER MAS" 
LET AS=INKEYS3 

IF A$="" THEN GOTO 1330 
CL5 

PRINT "LABERINTO DE 0x6" 
PRINT M-============2.= e 
PRINT:PRINT:PRINT 

CLEAR 

LET L=10 

LET A=6 

GOSUB 2060 

GOSUB 4000 

PRINT 

PRINT "PULSA UNA TECLA" 
LET A$=INKEYS 


IF A$="" THEN GOTO 1460 
CLS 


PRINT "Dime el tamano de un laberinto" 
CLEAR 
PRINT:PRINT 


INPUT "ANCHO = ";L 
PRINT:PRINT 
INPUT "LARGO = ";A 


CLS 

PRINT "ESPERA UN MOMENTO" 

PRINT: PRINT 

GOSUB 2000 

GOSUB 4000 

PRINT:PRINT 

PRINT "QUIERES OTRO LABERINTO (S/N) 
LET A$=INKEYS$ 

IF A$="" THEN GOTO 1620 

IF A$="S" OR A$="s" THEN GOTO 1480 
IF A$="N" OR A$="n"” THEN CLS:END 
GOTO 1620 

REM 

REM ooo aliado lalok 

REM * PROGRAMA PRINCIPAL *+ 

REM ARA OOOO klk 

REM 

RANDOMIZE TIMER 

DIM A(L,A):DIM B(L,A) 

LET Q4=0 

LET Z=0 

LET M=INT(RNDxL+1):LET X=M 

LET C=1 

LET A(X,1)=C 

LET C=C+1 A 

LET R=X 

LET S-1 

GOTO 2260, 

IF R<>L THEN GOTO 2240 
IF S<>A THEN GOTO 2210 
LET R=1 

LET S=1 
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2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 

2550 
2560 
2570 
2580 
2590 
2800 
2610 
2620 
2630 
2640 
2659 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2340 
2850 
2860 
2870 
2880 


GOTO 2250 
LET R=1 

LET S=S+1 
GOTO 2250 
LET R=R+1 
IF 
IF 
IF 
IF 
IF 


R-1=0 THEN GOTO 2620 
A(R-1,5)<>0 THEN GOTO 
S-1=0 THEN GOTO 2430 
A(R,S-1)<>0 THEN GOTO 
IF R=L THEN GOTO 2340 

IF A(R+1,S5)<>0 THEN GOTO 
LET X=INT(RNDx*x3+1) 

ON X GOTO 3000,3070,3140 
IF S<>A THEN GOTO 2380 
IF Z=1 THEN GOTO 2410 
LET C=1 

GOTO 2390 

IF A(R,S+1)<>0 THEN GOTO 
LET X=INT(RNDx*x3+1) 

ON X GOTO 3000,3070, 3230 
LET X=INT(RND*2+1) 

ON X GOTO 3000,3070 

IF R=L THEN GOTO 2540 

IF A(R+1,5)<>0 THEN GOTO 
IF 5<>A THEN GOTO 2490 
IF Z=1 THEN GOTO 2520 
LET Q=1 

GOTO 2500 

IF A(R,S+1)<>0 THEN GOTO 
LET X=INT(RND*3+1) 

ON X GOTO 3000,3140, 3230 
LET X=INT(RNDx*2+1) 

ON X GOTO 3000,3140 

IF S<>A THEN GOTO 2580 
IF Z=1 THEN GOTO 2610 
LET Q=1 

GOTO 2590 

IF A(R,S+1)<>0 THEN GOTO 
LET X=INT(RND*2+1) 

ON X GOTO 3000,3230 

GOTO 3000 

IF S-1=0 THEN GOTO 2830 
IF A(R,S-1)<>0 THEN GOTO 
IF R=L THEN GOTO 2750 

IF A(R+1,5)<>0 THEN GOTO 
IF S<>A THEN GOTO 2700 
IF Z=1 THEN GOTO 2730 
LET Q=1 

GOTO 2710 

IF A(R,S+1)<>0 THEN GOTO 
LET X=INT(RNDA3+1) 

ON X GOTO 3070,3140, 3230 
LET X=INT(RNDx2+1) 

ON X GOTO 3070,3140 

IF S<>A THEN GOTO 2790 
IF Z=1 THEN GOTO 2820 
LET Q=1 

GOTO 2800 

IF A(R,S+1)<>0 THEN GOTO 
LET X=INT(RND*2+1) 

ON X GOTO 3070,3230 

GOTO 3070 

IF R=L THEN GOTO 2930 


A(R,S)=0 THEN GOTO 2160 


2620 


2430 


2340 


2410 


2540 


2520 


2610 


2830 


2750 


2730 


2820 


IF A(R+1,5)<>0 THEN GOTO 2930 


IF S<>A THEN GOTO 2890 
IF Z=1 THEN GOTO 2920 
LET Q=1 

GOTO 3080 


2890 IF A(R,S+1)<>0 THEN GOTO 2920 
2900 LET X=INT(RND*2+1) 

2910 ON X GOTO 3140, 3230 

2920 GOTO 3140 

2930 IF S<>A THEN GOTO 2970 
2940 IF Z=1 THEN GOTO 2990 

2950 LET Q=1 

2960 GOTO 2980 

2970 IF A(R,3+1)<>0 THEN GOTO 2990 
2980 GOTO 3230 

2990 GOTO 3430 

3000 LET A(R-1,S)=C 

3010 LET C=C+1 

3020 LET B(R-1,S)=2 

3030 LET R=R-1 

3040 IF C=L*A+1 THEN RETURN 
3050 LET Q=0 

3060 GOTO 2260 

3070 LET A(R,S--1)=C 

3080 LET C=C41 

3090 LET B(R,S-1)=1 

3100 LET S=8S-1 

3110 JF C=L*A+1 THEN RETURN 
3120 LET Q=0 

3130 GOTO 2260 

3140 LET A(R+1,8)=C 

3150 LET C=C+1 : 
3160 IF B(R,S)=0 THEN GOTO 319 
3170 LET B(R,S)=3 

3180 GOTO 3200 

3190 LET B(R,S)=2 

3200 LET R=R+1 

3210 IF C=L*A+1 THEN RETURN 
3220'GOTO 2620 

3230 IF Q=1 THEN GOTO 3330 

3240 LET A(R,S+1)=C 

3250 LET C=C+1 

3260 IF B(R,3)=0 THEN GOTO 3290 
3270 LET B(R,S)=3 

3280 GOTO 3300 

3290 LET B(R,S)=1 

3300 LET 3=8+1 

3310 IF C=L*A+1 THEN RETURN 
3320 GOTO 2260 
3330 LET Z=1 
3340 IF B(R,3)=0 THEN GOTO 3380 
3350 LET B(R,S)=3 

3360 LET Q=0 

2370 GOTO 3430 

3380 LET B(R,S)=1 

3390 LET Q=0 

3400 LET R=1 

3410 LET S=1 

3420 GOTO 2250 

3430 GOTO 2160 

4000 REM 

4010 REM Adal dlaia lalala alolaialololajolelajolok 
4020 REM * IMPRESION DEL LABERINTO * 
4030 REM AMdooddaaoadio Odio joo dio 
4040 REM 

4050 FOR I=1 TO L 

4060 IF I=M THEN GOTO 4090 - 
4070 PRINT CBR$(219);CHR$(219); 
4080 GOTO 4100 

4090 PRINT CHR$(219);" ";- 
4100 NEXT I 

4110 PRINT CHR$(219) 

4120 FOR J=1 TO A 

4130 PRINT CHR$(219); 
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4140 FOR I=1 TO L 


4150 IF B(1,J)<2 THEN GOTO 4180 
4160 RIN 

4170 GOTO 4190 

4180 —PRINT " “;CHR$(219); 


4190 NEXT 1 
4200 PRINT 
4210 FOR I=1 TO L 


4220 IF B(1,J)=0 THEN GOTO 4260 
4230 IF B(I,J)=2 THEN GOTO 4260 
4240 PRINT CHR$(219);" ” 

4250 GOTO 4270 

4260 PRINT CHR$1219);CHR$(219); 


4270 NEXT 1 
4280 PRINT CHR$(219) 
- 4290 NEXT J 


4300 RETURN 


COMMODORE: 


1070 PRINT CHR$ (147) 

1210 GET AS 

1230 PRINT CHR$ (147) 

1330 GET A 

1350 PRINT CHR$ (147) 

1460 GET A$ 

1480 PRINT CHR$ (147) 

1550 PRINT CHR$ (147) 

1620 GET AS 

2050 LET F=RND (-TI) 

2090 LET M=INT (RND (1)'L+1): LET X=M 
2320 LET X=INT (RND (1)'3+1) 

2390 LET X=INT (RND (1)'3+1) 

2410 LET X=INT (RND (1)'3+1) 

2500 LET X=INT (RND (1)"3+1) 

2520 LET X=INT (RND (1)*2+1) 

2590 LET X=INT (RND (1)'2+1) 

2710 LET X=INT (RND (1)'3+1) 

2730 LET X=INT (RND (1)"2+1) 

2800 LET X=INT (RND (1)'2+1) 

2900 LET X=INT (RND (1)*2+1) 

4070 PRINT CHR$ (166); CHR$ (166); 
4090 PRINT CHR$ (166); * ”: 

4110 PRINT CHR$ (166) 

4130 PRINT CHR$ (166); 

4180 PRINT " ”: CHR$ (166); 

4240 PRINT CHR$ (166); CHR$ (166); 
4280 PRINT CHR$ (166) 


AMSTRAD: 


2050 RANDOMIZE TIME 
2090 LET M=INT (RND (1)'L+1): LET X=M 


2320 LET X=INT (RND (1)"3+1) 

2390 LET X=INT (RND (1)*3+1) 

2410 LET X=INT (RND (19241) 

2500 LET X=INT (RND (1)'3+1) 

2520 LET X=INT (RND'(1)*2+ 1) 

2590 LET X=INT (RND (19241) 

2710 LET X=INT (RND (1)"3+1) 

2730 LET X=INT (RND (1)*2+1) 

2800 LET X=INT (RND (1)*2+1) 

2900 LET X=INT (RND (1)2+1) 

4070 PRINT CHR$ (143); CHR$ (143); 
4090 PRINT CHR$ (143): “ ”: 

4110 PRINT CHR$ (143) 

4130 PRINT CHR$ (143): 

4180 PRINT CHRS “ ”; CHR$ (143); 
4240 PRINT CHR$ (143); CHR$ (143); 
4280 PRINT CHR$ (143): 


MSX: 


2050 LET F=RND (-TIME) 
2090 LET M=INT (RND (1)'L+1): LET X=M 
2320 LET X=INT (RND (1)"3+ 1) 

2390 LET X=INT (RND (1)3+1) 

2410 LET X=INT (RND (1)'2+1) 

2500 LET X=INT (RND (1)"3+1) 

2520 LET X=INT (RND (1)"2+1) 

2590 LET X=INT (RND (1)"2+1) 

2710 LET X=INT (RND a 

2730 LET X=INT (RND (1)'2+1 

2800 LET X=INT (RND (1)"2+1) 

2900 LET X=INT (RND (1)*2+1) 


ESPERA UN MONENTO 


QUIERES OTRO LABERINTO (5/1) 


A Un laberinto más largo que alto. 


Para que el programa nos cree un la- 
berinto sólo tenemos que asignarle a la 
variable L el valor de la longitud que que- 
remos que tenga el laberinto (ANCHO) y 
a la variable A el valor de la altura que 
queremos que tenga. Una vez hecho 
esto, hacemos un GOSUB a la línea 2000 
para que nos lo cree. Si queremos imprimir 
el laberinto sólo tenemos que hacer GO- 
SUB 4000 una vez que éste esté creado. 

Hay que tener cuidado de no darle 
unos valores muy altos de L y A para que 
el laberinto no se salga de la pantalla. 


1 DEF FN R()=1+INT (RNDx5) 


ESPERA UN MOMENTO 


QUIERES OTRO LABERINTO (5/1) 


lA Un super laberinto. 


¡O Programa Baby Fruits 


El siguiente programa, válido úni- 
camente para el SPECTRUM, nos permitirá 
jugar al conocido juego de las máquinas 
de los bares que dan premios en metáli- 
co. Este tipo de juegos es conocido 
como BABY FRUITS. No hace falta explicar 
nada sobre el mismo, ya que todos co- 
nocemos perfectamente su funciona- 
miento. 


2 DEF FN P$(A$, Y, X)=CHR$ 22+CHR$ Y+CHR$ X+A$( TO 4)+CHR$ 22+CHR$ (Y+1)+CBR$ X 


+AS(5 TO ) 
10 INK 7: PAPER O: BORDER 0: CLS 


GO SUB 1290 
REM DIBUJO DE LA PANTALLA 


70 PRINT AT 0,21; "QRQROR" 
80 PRINT AT 1,21;"STSTST_1000" 
90 PRINT AT 2,21; INK 5;"IJIJIJ" 


100 PRINT AT 3,21; INK 5;"KLKLKL"; INK 7;" 


110 PRINT AT 4,21; INK 6;"MNMNMN" 


120 PRINT AT 5,21; INK 6;"OPOPOP"; INK 7;" 


130 PRINT AT 6,21;"QR"; INK 5;"IJIJ" 


750" 


500" 


140 PRINT AT 7,21;"ST"; INK 5;"“KLKL"; INK 7;" 250" 
150 PRINT AT 8,21; INK 5;"IJIJ"; INK 7;"QR" 
160 PRINT AT 9,21; INK 5;"KLKL"; INK 7;"ST 250" 


170 PRINT AT 10,21;"QR"; INK 6; "MNMN" 


180 PRINT AT 11,21;"ST"; INK 6;"OPOP"; INK 7;" 100" 
190 PRINT AT 12,21; INK 6;"MNMN"; INK 7;"QR" 
200 PRINT AT 13,21; INK 6;"OPOP"; INK 7;"ST 100" 
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210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
850 
660 
670 

“:680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 


PRINT AT 14,21; INK 2;"EF"; INK 7;"ABAB" 

PRINT AT 15,21; INK 2;"GH"; INK 7;'"CDCD 50" 
PRINT AT 16,21;"ABAB"; INK 2;"EF" 

PRINT AT 17,21;'"CDCD";, INK 2;"GH"; INK 7;" 50" 
PRINT AT 18,21; INK 2;"EFEF"; INK 7;"--" 


PRINT AT 19,21; INK 2;"GHGH"; INK 7;"-- 25" 
PRINT AT 20,21;"--"; INK 2;"EFEF" 

PRINT AT 21,21;"--"; INK 2;"GHGH"; INK 7;" 25" 
BRIGHT O 


PRINT AT 18,2; PAPER 2;" Y 

PRINT AT 19,2; PAPER 2;" Ñ 

PRINT AT 20,2; INK 7; PAPER 2;" BABY FRUITS y 
PRINT AT 21,2; PAPER 2;" E 

PRINT AT 0,0; "PESETAS: 1000" 

INK 1: PAPER 7 

PRINT AT 17,0;"13333333333333333332"* 

FOR G=16 TO 10 STEP -1 

PRINT AT G,0;"5 Ss 

NEXT G 

PRINT AT 9,0;"43333333333333333337" 

PAPER 7: INK O 

PRINT AT 10,3;"4337 4337 4337" 

PRINT AT 11,3;"5QR5 5QR5 5QR5" 

PRINT AT 12,3;"55T5 5ST5 5ST5" 

PRINT AT 13,3;"1332 1332 1332" 

PAPER 4 

FOR 1=8 TO 3 STEP -1 

PRINT AT 1,3;" y 

NEXT I 

PRINT AT 4,7; INK 0;"AVANCES" 

PRINT AT 6,10; INK 0;"O" 

PAPER 7 

LET PESETAS=1000 

REM BUCLE PRINCIPAL DE LA JUGADA 

PRINT +1; INVERSE 1;"UNA TECLA PARA JUGAR” 
PRINT AT 0,0; PAPER O; INK 74" "PESETAS: ";PESETAS;"  " 
PAUSE O 

LET PESETAS=PESETAS-25 

PRINT AT 0,0; PAPER 0; INK 7;"PESETAS: ";PESETAS;"  " 
INPUT "" 

DIM C(3) 

FOR I=1 TO 3 

LET C(I)=1+INT (RNDx5) 

NEXT 1 

LET L=1+INT (RNDx*x5) 

FOR I=1 TO L 

PRINT FN P$(F$(FN R()),11,4): BEEP .1,-12 

PRINT FN PS(F$(FN R()),11,9): BEEP .1,-12 

PRINT FN P$(FS$(FN R()),11,14): BEEP .1,-12 

NEXT I 

PRINT FN P$(F$(C(1)),11,4): BEEP .01,24 

FOR I=1 TO L 

PRINT FN P$(F$(FN R()),11,9): BEEP .1,-12 

PRINT FN P$(FS$(FN R()),11,14): BEEP .1,-12 

NEXT I 

PRINT FN P$(F$(C(2)),11,9): BEEP .01,24 

FOR I=1 TO L 

PRINT FN P$(F$(FN R()),11,14): BEEP .1,-12 

NEXT I 

PRINT FN P$(F$(C(3)),11,14):: BEEP .01,24 

GO SUB 850 

IF PREMIO THEN GO SUB 970: GO TO 550 

IF RND>.85 THEN GO SUB 1060: GO SUB 850: IF PREMIO THEN GO SUB 
GO TO 550 

REM CALCULO DEL PREMIO 

LET PREMIO=0 

IF C(1)=5 AND C(2)=5 AND C(3)=5 THEN LET PREMIO=1000: GO TO 960 
IF C(1)=3 AND C(2)=3 AND C(3)=3 THEN LET PREMIO=750: GO TO 960 


970 


890 IF C(1)=4 AND C(2)=4 AND C(3)=4 THEN LET PREMIO=500: GO TO 960 
900 IF C(1)=5 AND C(2)=3 AND C(3)=3 THEN LET PREMIO=250: GO TO 960 
910 IF C(1)=3 AND C(2)=3 AND C(3)=5 THEN LET PREMIO=250: GO TO 960 
920 IF C(1)=5 AND C(2)=4 AND C(3)=4 THEN LET PREMIO=100: GO TO 960 
930 IF C(1)=4 AND C(2)=4 AND C(3)=5 THEN LET PREMIO=100: GO TO 9860 
940 IF C(2)=1 AND ((C(1)=2 AND C(3)=1) OR (C(1)=1 AND C(3)=2)) THEN LET PREMIO 

=50: GO TO 960 
950 IF C(2)=2 AND (C(3)=2 OR C(1)=2) THEN LET PREMIO=25 
960 RETURN 
970 REM PREMIO OBTENIDO 
980 FOR G=1 TO PREMIO/25 
990 FOR I=.1 TO .005 STEP -.01 

1000 BEEP I,1*10 

1010 NEXT 1 
1020 LET PESETAS=PESETAS+25 
1030 PRINT AT 0,8; PAPER 0; INK 7;PESETAS 
1040 NEXT G 
1050 RETURN % 
1060 REM AVANCES 
1070 LET NAV=1+INT (RNDx4) 

1080 PRINT AT 15,4; FLASH 1;"1";AT 15,9;2;AT 15,14;3 
1090 PRINT AT 6,10; FLASH 1;NAV 
1100 FOR I=NAV TO 1 STEP -1 
1110 PRINT AT 6,10; FLASH 1;1 
1120 LET CON=0 
1130 LET A$=INKEY$ 
1140 BEEP .01,20: LET CON=CON+1 
1150 IF CON>100 THEN GO TO 1250 
1160 IF A$>3" OR A$<"1" THEN GO TO 1130 
1170 LET T=VAL AS 
1180 LET A=4+(T-1)X5 
1190 LET C(T)=1+INT (RNDx5) 

1200 FOR G=1 TO 1+INT (RNDx5) 

1210 PRINT FN PS$(F$(FN R()),11,A) 

1220 BEEP .1,-24 
1230 NEXT G 
1240 PRINT FN P$(F$(C(T)),11,4) 

1250 NEXT 1 
1260 PRINT AT 6,10;0 
1270 PRINT AT 15,4;" 

1280 RETURN 
1290 REM CARGA LOS UDGS 
1300 RESTORE 1470 
1310 FOR i=USR "a" TO USR "t"+7 
1320 READ a 
1330 POKE i,a 
1340 NEXT i 
1350 DIM F$(5,6) 

1360 LET ch=144 
1370 FOR I=1 TO 5 
1380 READ a 
1390 LET f$(i, TO 2)=CHR$ 16+CHR$ a 
1400 LET f$(1,3 TO 6)=CHR$ ch+CHR$ (ch+1)+CHR$ (CH+2)+CHR$ (CH+3) 
1430 LET ch=ch+4 
1440 NEXT i 
1450 RETURN 
1460 REM DATA DE LOS UDG 
1470 DATA 0,0,11,21,42,21,20,17 
1480 DATA 0,98,64,192,240, 168,168, 40 
1490 DATA 16,16,16,16,33,38,24,0 
1500 DATA 8,16,32,64,128,0,0,0 
1510 DATA 0,1,2,5,5,9,9,17 
1520 DATA 0,0,128,64,64,32,16,18 
1530 DATA 59,119,119,119,119,59,29,0  ” 

1540 DATA 188,222,239,239,239,222, 188,0 
1550 DATA 0,0,1,13,30,63,61,61 
1560 DATA 0,0,128,56,252,252,254,254 
1570 DATA 62,62,62,30,31,15,3,0 
1580 DATA 254,254,252,252,120,112,192,0 
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1590 DATA 1,1,3,7,7,15,15,31 


1600 DATA. 128, 128, 192,224,224, 240, 240, 248 


1610 DATA 31,31, 47, 48,127,255, 255,63 


1620 DATA 248,248, 244, 12,254,255,255, 252 


1630 DATA 0,127,78,85,85,85,85,76 
1640 DATA 0, 254,98, 170,170,170,170, 38 
1650 DATA 77,85,85,85,85,77,127,0 


1660 DATA 166, 170,170,170,170,170,254,0 


1670 REM DATA PARA LA MATRIZ DE LAS FRUTAS 


1680 DATA 2,2,5,6,0 


Sólo hay que decir que las letras que 
aparecen subrayadas en el listado hay 
que introducirlas con el cursor en modo 
GRAPHICS. Para poner el cursor en este 
modo, tenemos que pulsar a la vez, las 
teclas CAPS-SHIFT y 9. En ese momento el 
cursor se volverá como una G parpa- 
deante. Para volver al modo normal del 
cursor, tenemos que pulsar de nuevo 
CAPTS-SHIFT y 9. 


RESETAS 1000 


PUSO ES 


abr PFROTTS 


UNS TECLA PAGA JIJGRE 


| A El programa en plena ejecución. 


ae 


PIAMHCES 


A 


l==34 El juego nos da avances de vez en 


A] Programa: 
(um Integrales para IBM 


Este programa, muy apropiado para 
estudiantes a partir de tercero de BUP, 
nos va a permitir el cálculo de cualquier 
integral definida entre dos valores cua- 
lesquiera. 

El programa puede utilizarse lo mismo 
como programa autónomo que como sub- 


rutina de un programa que realice el 
usuario. 


pa INTEGRALES 


' 


/ 


2:7 10 


INTEGRALES 
F(x3=005 (0) 


| | ero de partes:? 200 
Quieres cambiar la ecuacion (8/N): Nunero de partes:? 20 


Divisiones: 0 


Área= 2,217134 . 
Quieres continuar (S/N) 


A Aspecto de la pantalla una vez registrados 
A El programa nos permite cambiar la A, los cálculos para saber la integral definida 


función a integrar. entre 10 y 1000 de la función cos (x). 


Esta es la versión para IBM y puede fun- que dispongan del GWBASIC (o BASICA) 
cionar en todos ¡aquellos ordenadores y que tengan alguna tarjeta gráfica. 


E E ES 
ARA PROGRAMA PARA CALCULAR INTEGRALES POR PARTES ARO 


ooo VALIDO PARA IBM CON TARJETA DE GRAFICOS ES 
SAA lll lololojoJak 


Moa oaoalalalajalalalalalalalalalalalalalalalajala lalala jaja lalalala ajajaja lalalala ala OlOoIOlolOIOIOjOK 
OOOO alojoloK POR : CARLOS A. MARIA MORIN ES 
Malal lalolalalalalalalalElala lalalala jajajajajajajaja lalalala lalalala lalalala lalalala lalalala lalalala lOloldRSIOlOIOIOIOIOK 


190 REM ASS lSlOSS lalala lalalala lalalala lalalala lalalala lala lalalo lalalala laalalela lalo ldlelalalojojok 
200 REM AMOO (C.) EDICIONES SIGLO CULTURAL, 1987 ES 
210 REM AaaSS Saa O OSOS jajajaa aaa lalalala lalalala lalalala jajajajajaja lalalala jalP lalala jolblalelojalojolololok 
220 REM 

230 CLS 

240 KEY OFF 

250 SCREEN 2 

260 LOCATE 1,35 

270 PRINT"INTEGRALES" 

280 KEY 1,CHR$(13)+"GOTO 440"+CHR$(13) 

290 SCREEN 2 

300 LINE (270,8)-STEP(82,0) 

310 CIRCLE (100,20),20,1,1.8,3 

320 LINE (79,20)-STEP(-5,10) 

330 CIRCLE (53,30),20,1,5,0 

340 LOCATE 2,13 

350 PRINT"b:" 

360 LOCATE 6,9 

370 PRINT"a:" 

380 LOCATE 5,23 , 

390 PRINT"Quieres cambiar la ecuacion (S/N):" 

400 LET A$=INKEYS$ 

410 IF A$="S" OR A$="s" THEN 850 

420 IF A$="N" OR A$="n" THEN GOTO 470 

430 GOTO 400 

440 LOCATE 8,.1 

450 PRINT " F(x)=" 

460 PRINT " y 
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470 LOCATE 21,1 
480 PRINT SPACE$(240) 
490 LOCATE 6,11 
500 INPUT A 
510 LOCATE 2,15 
520 INPUT B 
530 LOCATE 15,1 
540 INPUT "Numero de partes: ";P 
550 LET DX=(B-A)/2/P 
560 LET D=0 
570 LET X=4 | 
580 GOSUB 830 
590 LET D=D+Y 
600 LET X=X+DX 
610 GOSUB 830 
620 LET D=(Yx*4)+D 
630 LET X=X+DX 
640 GOSUB 830 
650 LET D=Y+D 
660 LET P=P-1 
670 LOCATE 17,1 
680 PRINT"Divisiones:";P 
690 IF P<>0 THEN 590 
700 LET RE=(DxDX)/3 
710 SOUND 425,1 
720 LOCATE 20,1 
730 PRINT"Area=";RE 
740 PRINT"Quieres continuar (S/N)" 
750 A$=INKEY$ 
760 IF ((A$<>"S" AND A$<>"s") AND (A$<>"N" AND A$<>"n")) THEN 750 
770 IF A$="S" OR A$="s" THEN 230 
780 KEY 1,"LIST" 
790 KEY ON 
800 CLS á 
810 PRINT "ADIOS..." 
820 END 
830 LET Y=C05(X) 
840 RETURN 
850 LOCATE 21,23 
860 PRINT "CAMBIA LA FORMULA Y, SIN PULSAR RETURN, ” 
870 LOCATE 23,28 
880 PRINT"CUANDO TERMINES PULSA [ F1 ] ” 
890 LOCATE 5,18 
900 PRINT" z 
910 LOCATE 8,1 
920 EDIT 830 


ORDINOGRAMAS 


DEMAS de la utiliza- 
ción de los símbolos 
indicados, conviene 
sujetarse a unas cier- 
tas normas en la pre- 
paración de los orga- 
, higramas para una 
mayor claridad en la 
representación de los procesos: 


a) Deberán dibujarse sobre papel norma- 
lizado; deben dejarse unos márgenes 
adecuados (con vistas a su posible re- 
producción) especialmente en el lado 
izquierdo, pues en la encuadernación 
se perdería (en caso contrario) parte 
de la información. 

b) Es básico preparar y rellenar cuidado- 
samente un cajetín de identificación 
de todos los procesos. Además, es útil 
referenciar otros procesos que prece- 
dan o vayan a continuación de aquel 
al que se refiere el organigrama en 
cuestión. 

Cc) Debe establecerse una norma unifor- 
me para toda la documentación, de 
modo que exista un organigrama ge- 
neral de la aplicación y otros varios de 
cada proceso independiente (uno por 
cada actividad separable del resto). 
Junto a cada uno de estos organigra- 
mas parciales se preparará un ordino- 
grama lógico de cada proceso (más 
adelante hablaremos de ellos). 

d) El flujo lógico de la información irá (sal- 
vo excepciones) de la parte superior 
del dibujo hacia la parte inferior y de iz- 
quierda a derecha. 

e) En los conectores y las líneas de co- 
nexión de símbolos se indicará (con 
puntas de flecha) el sentido del flujo de 
la información. 


TECNICAS DE ANALISIS 


f) Deben identificarse (al menos somera- 
mente) los procesos que intervienen en 
la aplicación y los archivos involucra- 
dos. 


(a Ordinogramas 


En un segundo nivel de detalle, se suelen 
preparar unos organigramas de detalle o mi- 
croorganigramas, para cada proceso sepa- 
rado dentro de la aplicación. En estos orga- 
nigramas de detalle, es importante resaltar 
los procesos lógicos que se producen y el flu- 
jo de los datos. Actividades como selección, 
clasificación, etc., son las importantes arese- 
ñar en cada documento (más que la relación 
de unos procesos con otros o la estructura 
general de las actividades que vendrán re- 
flejadas en los organigramas de la aplica- 
ción); por esta razón a estos organigramas se 
les denomina, en ocasiones, ordinogramas 
de proceso. 

Para la preparación de los ordinogramas 
se utilizan la mayoría de los símbolos usados 
en los organigramas, y algunos otros más 
concretos que señalan el flujo de los datos y 
los procesos básicos a desarrollar con ellos: 


Subrutina o proceso 
predefinido. 


Simbolo de prepara- 

ción. Para reseñar las 

» operaciones adiciona- 

' les necesarias para al- 
gún proceso especial. 


Bifurcación. Se utiliza 
como un conector (del 
que parten y salen lí- 
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neas de flujo de datos) 
pero incluyendo algún 
< criterio de toma de de- . 
a cisión. 


Simbolo terminal. 
AA >) Marca el comienzo o fi- 
( ; nal de un proceso. 

La utilización básica de estos símbolos es 

equivalente, pero el concepto del diagrama 

y su finalidad varían. En cualquier caso, el cri- 

terio fundamental que se debe aplicar es 

que, dentro del conjunto de normas estable- 

cidas, los organigramas y ordinogramas sean 
de la máxima claridad posible. 

Deberán tenerse en cuenta, en la cohfec- 


ción de los ordinogramas, las siguientes nor- 
mas: 


a) establecer un ordinograma para cada 
proceso separable en que se puede 
dividir la aplicación, dando indicacio- 


(  puNcino y 


| 


pa) 

/ COMPROBACIÓN / 
FICHEROS / 
ENTRADA / 


INTWADA ) 
IT 

» » A : 
A 
] 


MU 


“ay a PS 
SIRO 1 


CT PA a 
ACUMULADOS SB IEOISTRO == í E ni 
| ACUMULADOS ' VADO > ml 


ge 


N 


NESUMEN 


pon 


RESUNEN 


b) 


c) 


d) 


nes (con el símbolo de relación corres- 
pondiente) para las correspondencias 
entre los diferentes procesos. 

Aunque en el correspondiente símbolo 
de tratamiento o clasificación se indi- 
quen los parámetros a utilizar, es con- 
veniente reseñar a nivel de presenta- 
ción del ordinograma las funciones bá- 
sicas y parámetros que caracterizan 
cada proceso. 

Las líneas de flujo deben ser verticales 
y horizontales (no oblicuas). Las líneas 
que parten de cada archivo deben ir 
aun solo símbolo de proceso. Si deben 
llegar a un símbolo de archivo varias 
conexiones (de procesos diferentes) o 
si han de salir de un archivo varias lí- 
neas deberán incluirse los oportunos 
conectores (círculos de enlace) de 
donde bifurquen estas líneas. 

Para mayor claridad, se suelen poner 
los símbolos de salida impresa debajo 
del tratamiento en el que se prepara 
dicho impreso. Los símbolos de entra- 
da o salida magnética (cintas y discos) 
se deben poner a izquierda o derecha 
respectivamente del símbolo del trata- 
miento correspondiente. Si un archivo 
es de acceso doble (para entrada y 
para salida) se debe poner a la izquier- 
da dei símbolo de tratamiento, prefe- 
rentemente, y unido a éste por una do- 
ble flecha para indicar que se produ- 
ce un flujo bidireccional de datos. 

Se supone que el flujo lógico de pre- 
sentación de archivos y procesos es de 
izquierda a derecha y de arriba abajo. 
Cuando el flujo de datos va según esta 
norma, no es necesario utilizar puntas 
de flecha: si los datos no van según 
esas direcciones deben utilizarse di- 
chos simbolos, 

Deben evitarse las intersecciones de lí- 
neas de conexión y, en caso impres- 
cindible, limitarias al máximo. Si el re- 
sultado incluye muchos cruces y se 
pierde claridad, separar una parte del 
proceso llevándolo a otro ordinograma 
o, dentro de la misma hoja, haciendo 
otro ordinograma. En ambos casos es 
imprescindible establecer claramente 
los puntos de relación de las diferentes 
partes, mediante los correspondientes 
simbolos conectores. 


EXPRESIONES 


EMOS visto que las ex- 

presiones de resulta- 

do lógico pueden to- 
mar sólo dos valores 
diferentes: «verdade- 
, ro» y «falso». ¿Cómo 
se representan estos 
: - dos valores en la me- 

mona de un ordenador? 

La respuesta a la pregunta anterior de- 
pende del lenguaje de programación. En 
general, se utilizan ciertas combinacio- 
nes de bits para representarlos. Por ejem- 
plo, en BASIC, el valor «falso» se represen- 
ta generalmente con un cero, mientras 
cualquier valor distinto de cero significa 
«verdadero». En particular, las expresio- 
nes de comparación (como X=3) devuel- 
ven un valor igual a cero si la condición 
no se cumple, y un valor igual a —1 si la 
condición se cumple. Naturalmente, es- 
tos valores también estarán representa- 
dos internamente como números enteros 
binarios de cierio número de dígitos. Los 
números negativos se representan, como 
ya hemos mencionado, con la notación 
de «complemento a dos». 

En BASIC es posible asignarle a una va- 
riable el resultado de una operación ló- 
gica e imprimir su valor. Además, las ope- 
raciones lógicas (como AND) pueden 
actuar sobre valores no lógicos (ente- 


ros). En este caso, la operación se reali- 


za bit a bit, como si el número entero, ex- 
presado en el sistema binario, estuviera 
en realidad formado por un vector de ce- 
ros y unos, donde los ceros significan «fal- 
so» y los unos «verdadero». Veamos algu- 
nos ejemplos: 
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PRINT NOT 2 


LET A=9 AND 12 
PRINT A 


LET B=A=B 
PRINT B 


LET C=A=7 
PRINT E 


El primer caso (NOT 2, que da un resul- 
tado de -3) precisa para interpretarlo 
conocer la notación de complemento a 
dos que representa los números negali- 
vos. En efecto, la representación binaria 
en 16 bits del número entero 2, es 
0000000000000010. La operación NOT, 
aplicada bit a bit, cambia todos los 
ceros (falso) en unos (verdadero) y to- 
dos los unos (verdadero) en ceros (fal- 
so). Por tanto, NOT 2 sería igual a 
1171111111111101, que es la represen- 
tación en complemento a dos del núme- 
ro negativo -3. 

El segundo caso es más fácil: se trata 
de realizar la operación AND entre los 
dos enteros 9 y 12. La representación bi- 
naria del 9 es 0000000000001001 y la del 
12 es 0000000000001100. La operación 
AND, realizada bit a bit, convierte dos 
unos en un uno (la conjunción es verda- 
dera si los dos operandos lo son) y cual- 
quier otra combinación de bits en cero 
(la conjunción es falsa en cuanto uno de 
los operandos lo sea). Por tanto, la ope- 
ración se realizará así: 


da 


000000000000J00 


Es decir, el resultado será igual a 
0000000000001000 en binario, que es el 
número 8. Este valor ha sido asignado por 
la instrucción (LET A=9 AND 12) a la varia- 
ble A, que por tanto valdrá precisamen- 
te 8. : 


Veamos el tercer ejemplo. La instruc- 
ción (LET B=A=8) es muy significativa, 
pues nos presenta claramente otra de las 
anomalías del lenguaje BASIC, especial- 
mente visible en intérpretes que permi- 
ten prescindir de la palabra reservada 
LET en las asignaciones de valor, pues en- 
tonces la instrucción anterior queda re- 
ducida a (B=A=8). Esta'anomalía consis- 
te en el hecho de que, en BASIC, el mis- 
mo símbolo (=) representa dos operacio- 
nes completamente diferentes: la asig- 
nación de valor y la comparación de dos 
valores. El intérprete decide cuál es el 
significado apropiado en cada caso en 
función del contexto. Una asignación de 
valor debe estar situada a la izquierda 
de una instrucción, por lo que el primer 
signo igual de la instrucción anterior es 
interpretado de esta manera. En cambio, 
si existe algo a la izquierda del signo 
igual y de sus operandos, el intérprete 
llega a la conclusión de que se trata de 
una comparación. Por lo tanto, la instruc- 
ción (B=A=8) significa: «Comparar el va- 
lor de-la variable A con 8. Si son iguales, 
asignarle -1 (“verdadero”) a la variable 
B. Si A no vale 8, asignarle 0 (“falso”) a la 
variable B». Como, en nuestro caso, A va- 
ía 8, el valor de B pasa a ser -1, como 
podemos comprobar en la instrucción si- 
guiente. 

En cambio, en el cuarto ejemplo, la ins- 
trucción (LET C=A=7) asigna a C el valor 
cero («falso»), pues no es verdad que el 
valor de A (8) sea igual a 7. 

En BASIC no existen variables de tipo ló- 
gico. Si le asignamos un valor lógico a 
una variable (como en los ejemplos an- 
teriores) el valor asignado pasa a ser, in- 
mediatamente, entero. En PASCAL, sin 
embargo, sí se pueden definir variables 
de tipo lógico, lo que se consigue con 
una declaración parecida a la siguiente: 


que define las dos variables «X» Y «COrrec- 
to», cuyo valor será lógico (booleano, en 
la terminología de PASCAL). Una variable 
booleana sólo puede adoptar uno de los 
dos valores: «verdadero» (representado 
por la palabra inglesa «TRUE») y «falso» 
(representado por la palabra inglesa 
«FALSE»). Estas dos palabras están reser- 
vadas para este uso, por lo que se pue- 
den utilizar directamente en asignacio- 
nes a variables lógicas: 


correcto:=false; 
x:i=truej; 


También se pueden utilizar como térmi- 
nos de comparación en una expresión 
relacional: 


if x=true then... 
if x then... 


Las dos líneas de este último ejemplo 
son totalmente equivalentes. Pues 
(c=true) es verdad («true») sí y sólo si el 
valor de x es «true». Por lo tanto, la expre- 
sión (x=true) puede sustituirse simple- 
mente por (Xx). 

En APL, la verdad o la falsedad de una 
operación se representan siempre con 
los valores cero («falso») y uno («verdade- 
ro»). Este cero y este uno pueden consi- 
derarse, indistintamente, como valores 
lógicos o como valores enteros, con los 
que se puede operar. Esto es útil a menu- 
do. Por ejemplo, supongamos que tene- 
mos una variable X cuyo valor es una se- 
rie de números enteros: 


Xe24356723411750442 


Xx 
243567234411 


75 442 


Supongamos que nos interesara saber 
cuáles de los valores de X son menores 
que 4. Bastaría con realizar la siguiente 
comparación: 


xc<4 
10100011001004 


donde los unos del resultado correspon- 
den a los elementos de X para los que la 
relación es «verdadera» (es decir, para 
los que son menores que 4), mientras los 
ceros corresponden a aquellos elemen- 
tos para los que la relación es «falsa» (es 
decir, para los que son mayores o igua- 
les que 4). 

Pues bien: supongamos que lo que 
realmente deseamos saber no es cuáles 
son los elementos de X que son menores 
que 4, sino cuántos son. Su número, sin 
importarnos su orden ni su posición. Po- 
dríamos obtenerlo con la expresión si- 
guiente: 


En efecto, el par de símbolos (+/) ob- 
tiene en APL la suma de todos los ele- 
mentos de la serie de números a la que 
se aplica. En nuestro caso, como el resul- 
tado de la relación lógica puede consi- 
derarse también como una serie de nú- 
meros enteros (ceros y unos), dicha suma 
tiene que coincidir con el número de 
unos, que no es otra cosa que el número 
de los elementos de X que eran menores 
que 4. 


Existen otras muchas aplicaciones de 
las operaciones y los tipos de datos lógi- 
cos, pero ya tenemos bastante por el mo- 
mento. 


Expresiones literales 


Llamaremos expresiones literales a las 
que se aplican a datos literales (cade- 
nas de caracteres) para producir resulta- 
dos literales. 

La operación literal más frecuente en 
los lenguajes de programación es la con- 


catenación, que une dos cadenas de 
caracteres entre sí para formar una ca- 
dena nueva, cuya longitud es la suma de 
las longitudes de las dos cadenas a las 
que se aplica. En BASIC esta operación 
se representa con el signo +: 


10 LET X$="Casa" 
20 LET N$="Juan" 

30 PRINT X$+"de"-+NS$ 
RUN 

Casa de Juan 


Obsérvese que, al 'concatenar dos ca- 
denas de caracteres BASIC, se introduce 
automaticamente un espacio en blanco 
entre ellas. 

En los compiladores de PASCAL que re- 
conocen el tipo «string» existe también la 
operación de concatenación, que por 
analogía con BASIC se suele representar 
también con el signo +. Sin embargo, en 
este caso no se introducen automática- 
mente espacios en blanco entre los ca- 
racteres que se concatenan. 


program literal; 
var 
x,nombre : string; 
begin 
xn:i="Casa”; 
nombre:="Juan? 5 
writeln(tx+*? de *+nombre)3 
end. 


El programa anterior produce el mismo 
resulilado que el ejemplo BASIC equiva- 
lente. Obsérvese que, en este caso, he- 
mos tenido que incluir explícitamente los 
blancos de separación a ambos lados 
de la palabra «de». 

En APL, la operación de concatenación 
se representa con una coma y se aplica 
por igual a datos literales o numéricos. 
Tampoco en este caso se añaden auto- 
máticamente espacios en blanco para 
separar los literales que se concatenan. 


X*-'Casa' 
NOMBRE+**' Juan' 
X,' de *', NOMBRE 
Casa de Juan 
Ne2 4 6 
M1 35 


N,M 
246135 


E TECNICAS DE PROGRAMACIÓN 


Además de la operación de concate- 
nación, existen en los lenguajes de pro- 
gramación otras funciones u operacio- 
nes que actúan sobre datos literales. 
Veamos una lista de algunas funciones li- 
terales BASIC: 


FUNCION RESULTADO 
Los n caracteres a la 
izquierda de x% 

m caracteres de x% a 
partir del que hace 
el número n 


LEFTS (x$,n) 
MIDS$ (x$,n,m) 


RIGHTS (x$,n) 


Los n caracteres a la 
derecha de x$ 
SPACES (n) Una cadena de n 


espacios en blanco 
El primer carácter de 
x*$ repetido n veces 


STRING$ (n,x%) 


En PASCAL, dado que el tipo «string» no 
es uno de los tipos estándar de este len- 
guaje, las funciones que actúan sobre él 
dependen del compilador. Una de las 
más corrientes es la función CcoPY, que 
actúa de manera equivalente a la función 
MID$ de BASIC. 

En cambio, el tipo «char» sí es un tipo 
estándar de PASCAL, por lo que las dos 
funciones siguientes aparecerán normal- 
mente en todos los compiladores: 


FUNCION RESULTADO 


E 


PRED(x) Carácter anterior a x en la 
. lista de caracteres 
SUCC(x) Carácter siguiente a x en 


dicha lista 


En APL existen también funciones que 
pueden actuar por igual sobre datos nu- 
méricos o literales. Por ejemplo, la ope- 
ración representada por una flecha as- 
cendente extrae de la serie de datos si- 
tuadas a su derecha, cualquiera que sea 
su tipo, tantos elementos como indique 
el número situado a su izquierda. De igual 
manera, la operación representada por 
una flecha descendente elimina de la se- 
rie de datos situada a su derecha tantos 


elementos como indique el número situa- 


. do a su izquierda. 


Veamos algunos ejemplos: 


31' ABCDEFG' 


3+'ABCDEFG* 


311234567 


34112345867 
7 


' Expresiones mixtas 


Estrictamente hablando, son las que 
mezcian datos de distintos tipos o que 
producen un resultado de tipo diferente 
al de sus operandos. Por ejemplo: núme- 
ros con literales, datos numéricos con da- 
tos lógicos, etc. Ya hemos visto algunos 
casos. Las operaciones de comparación, 
por ejemplo (como X=2) se utilizan para 
comparar dos números, obteniendo el 
resultado «verdadero» o: «falso». Estas mis- 
mas operaciones se pueden utilizar con 
datos de caracteres. Por ejemplo, en BA- 
SIC: 


LET X$="Caso" 
LET A=X$="Caso" 
PRINT A 


x2=*C? 


if x="C* then ... 


Ar 'CASA DE JUAN' 
A='A' 
010100000010 


LOGO 


Utilización de 
los 
procedimientos 


A sabemos que po- 
demos enseñar a la 
tortuga a hacer cosas 
nuevas definiendo un 


no lo olvidará hasta 

que se lo digamos o 
hasta que apague- 
mos el ordenador. Por tanto, la palabra 
que da nombre a ese procedimiento es 
como si fuera un comando más para la 
tortuga. Por ello, la podemos utilizar, por 
ejemplo, dentro de un REPITE. 

Supongamos que queremos pintar una 
figura formada por 4 circunferencias: 


Una manera de hacerlo ya la conoce- 
mos: 


? REPITE 4 [REPITE 34 AY GD 10] 6D 901 


La otra consiste en definir un procedi- 
miento para que la tortuga aprenda a di- 
bujar una circunferencia: 


procedimiento y que 


7. PARA CIRCUNFERENCIA 


+ REPITE A6YTAV 2 6D 101 


Estas nuevas palabras también se pue- 
den usar junto con otros comandos, no 
sólo con el REPITE. Veámoslo con un ejem- 
plo. 

Para obtener un dibujo formado por un 
conjunto de ladrillos 


primero hemos de enseñarle a la tortuga 
a hacer un ladrillo. Por ello, definimos un 
procedimiento: 


T PARA LADRILLO 


> REPITE 2 TAV 20 6D 90 AV 40 6D 7901] 


LOGO 


y ahora escribimos los siguientes coman- 
dos: 


LADRILLO 
¿GD90 AY 40 
2 BT 90 RE 10 
7 LADRILLO 

? AV 20 

? LADRILLO 


GD 90 AV 40 


7 51 90 RE 


% LADRILLO 


Como vemos, antes de dibujar cada la- 
drillo hemos de decirle a la tortuga una 
serie de comandos para que se vaya co- 
locando en la posición que corresponda 
a ese ladrillo. 


O Uso de unos 


procedimientos dentro 
de otros 


Debido a que el nombre de un proce- 
dimiento se puede utilizar como si fuera 
un comando, parece lógico que lo po- 
damos poner dentro de la definición de 
otro procedimiento. 

De esta manera, para realizar un dibu- 
jo que sea bastante complicado, en lu- 
gar de hacerlo con un solo procedimien- 
to podemos dividirlo en partes más pe- 
queñas y sencillas. Cada una de estas 
partes se obtiene a partir de su procedi- 
miento correspondiente. Por último, ne- 
cesitamos definir un procedimiento ge- 
neral que se encargue de usar todos los 
demás y con el que podamos pintar el di- 
bujo completo. 

Por ejemplo, vamos a dibujar una bai- 
larina: 


Podemos dividirla en cuatro partes: 


— cabeza 
— cuerpo 
— brazos 
— piernas 


Ahora escribimos un procedimiento 
que se encargue de dibujar cada parte: 


— Cabeza 


?% PARA CABEZA 


2 REPITE 36 [ AV 2 6D 107 


? PARA CUERPO 


> AV 30 6D 30 


> REPITE 3 [AV 26 Gl 1201 


> FIM 


— piernas 


? PARA PIERNAS 


> AY 40 


RE 40 


> GI 45 


> Av 


20 


GD 90 


AN 


20 


> FIN 


PARA BRAZDDCHO 


> AV 20 


> 61 60 AV 15 


GI 30 AV OS 


+ FIN 


PARA BRAZDIZO 


> AV 20 


¿+ GD 30 AV 5 


Nos queda escribir el procedimiento fi- 
nal que tenga como función obtener el 
dibujo total (la bailarina). Para ello, tene- 
mos que ir colocando a la tortuga en la 
posición correcta antes de dibujar cada 
parte: 


? PARA BAILARINA 
> BP 

+ SL AV 40 BL 
1 90 

> CAREZA 

+ GI 90 

> CUERPO 

+ 5L AV 26 61 120 AV 13 BL 
> 6D 90 

> PIERNAS 

> SL CENTRO 


> AN 30 GD 60 BL. 


> BRAZODCHO 


SL CENTRO 


> AV 30 61 1120 BL 


+ ERAZOIZO 


Vamos a hacer lo mismo para dibujar 
esta noria: 


En primer lugar, dividimos la noria en 
partes más sencillas: 


— soporte 

— barra 

— cabina 

En segundo lugar, hemos de enseñarle 


a la tortuga a hacer cada cosa. Para ello, 
definimos los procedimientos siguientes: 


== Soporte 


PARA SOPORTE 


> RE 50 


> GD 735 AV 26 


GI 105 "AV 50 


7 PARA CABINA 


> REPITE 36 [AV 1 GD 10] 


> FIN 4 


de LOGO 


Por último, creamos el procedimiento que le enseñe a la tortuga a realizar la noria: 


2 PARA NORTA 
> 6D 15 
v SOPORTE 


> POMNRUMBO 90 


2 REPITE 6 [BARRA 61 90 CABINA 


El usar este método de descomponer 
un dibujo complejo en partes más pe- 
queñas no sólo ayuda a que sea más 
sencillo de realizar, sino que, además, es 
mejor a la hora de tener que corregir los 
procedimientos si no nos sale el dibujo 
que queremos. 

Esto es debido a que sólo necesitare- 
mos cambiar aquel procedimiento 
correspondiente a la parte del dibujo 
que esté mal, sin que esto afecte a los 
que estén bien, ya que no hará falta mo- 
dificarlos. 

Además, si una parte del dibujo se re- 
pite varias veces es más cómodo utilizar 
el procedimiento ya definido que le 
corresponda que tener que escribir en 
cada ocasión el conjunto de comandos 
necesarios para pintarla. 


' Os proponemos 


1. Puedes pintar una cara. Te damos 
como pista las partes en las que la pue- 
des dividir. 


6D 90 RE 30 6D £01 


2. También puedes intentar pintar 
este edificio dividiendolo en varias par- 


3. ¿Te atreverías a hacer este tren? 


o 


4. Prueba ahora con este muñeco. 6. Ahora puedes realizar este dibujo: 


Para dibujar media circunferencia utili- 
za el comando REPITE, así: 
REPITE 18 (AV tamaño GD, 10) 
7. ¿Qué te parece este molino? 
$ CA « e 6 


5. Puedes pintar también una fábrica. 


= = E == = = Para dibujar o recorrer la cuarta parte 
de una circunferencia has de poner: 
REPITE 9 (AV tamaño GD 10) 


PASCAL 


UNQUE todavía que- 
dan muchos concep- 
tos de PASCAL por es- 
tudiar, ya conoce- 
mos lo suficiente 
como para desarro- 
llar algún programa 
que sea más intere- 
sante que los que hemos hecho hasta 
ahora. Por ello, y para descansar de tan- 
ta teoría, vamos a escribir uno que nos 
permita jugar al «Master Mind» con el or- 
denador; en principio, seremos sólo no- 
sotros quienes tratemos de adivinar la 
combinación secreta, aunque en otra 
ocasión veremos cómo modificar el pro- 
grama para que también pueda ser el or- 
denador el que lo intente con una com- 
binación escogida por nosotros. 


¡O El juego del Master Mind 


Aunque existen muchas variantes de 
este juego, vamos a describir una de las 
más corrientes, que será la que emplea- 
remos; consiste en lo siguiente: 

Un jugador (que en nuestro caso será 
el ordenador) se inventa una combina- 
ción secreta formada por cuatro elemen- 
tos, cada uno de los cuales puede tomar 
uno cualquiera de entre varios posibles 
valores. Por ejemplo, los elementos po- 
drían ser cifras comprendidas entre 1 y 8, 
o letras entre la A y la G, o piezas de ó po- 
sibles colores; de esta manera, podría- 
mos tener combinaciones como 1315 
para el primer caso, BAGB para el segun- 
do o «ojo, blanco, rojo, rojo» para el último. 

El otro jugador ha de adivinar la com- 
binación; para ello va presentando a su 


oponente distintas combinaciones, y 
éste debe informarle sobre lo acertado 
que sea cada intento de la siguiente ma- 
nera: 


— Por cada uno de los elementos de 
la nueva combinación que coincida en 
valor y posición con uno de la combina- 
ción secreta, se contabiliza lo que se de- 
nomina un «muerto». Por ejemplo, si la 
combinación a descubrir fuera 1315 ten- 
dríamos: ' 


1315 


2345 Dos muertos (el 3 y el 5). 

3151 Ningún muerto. 

5112 Un muerto (el segundo 1). 

1315 Cuatro muertos (o sea, ya está). 


— Por cada uno de los elementos de 
la nueva combinación que coincida en 
valor, pero no en posición, con uno de la 
combinación secreta, se contabiliza lo 
que se denomina un «herido», teniendo 
en cuenta que si un elemento ya ha ser- 
vido para contabilizar un muerto o un he- 
rido, no sirve para contabilizar más de és- 
tos. Por ejemplo: 


1315 


1222 Ningún herido (el 1 ya dilo un muerto), 
2164 Un herido (el 1). 

3636 Un herido (alguno de los treses). 
5112 Dos heridos (el 5 y el primer 1). 
3151 Cuatro heridos. 


El poseedor de la combinación secre- 
ta debe contestar a cada intento del otro 
jugador con el número de muertos y he- 
ridos correspondiente, hasta que se des- 
cubra la solución; se trata de hacerlo 
con el menor número de intentos posible. 
Suponiendo que las cifras sólo puedan 


variar entre 1 y 6, veamos una partida 
muy sencilla: 


supongamos que el muerto se debe al 4 
y probemos a variar las otras cifras: 


150DA: 211 . e 
1224: 0 muerto y heridos 


si fuese el 4, entonces no habría 1, 2, 3 ni 
6 y las tres restantes cifras deben ser 4 
y/o 5; probaremos, por tanto, lo siguiente: 


3544: da (0 muertos y 1 herido 


por tanto, no hay ningún 4 y debe haber 
un 5 en alguna de las posiciones de la 
derecha, así como 366 y 1ó 2 en las de- 
más; probemos: 


LOCA. > f > =, 191 o pa ml . 
ILIE ¡Q Y 21105 Y | erat 


como hay un 5 seguro, éste está en últi- 
mo lugar y no hay ni 2 ni 6; por la prime- 
ra combinación sabemos que no puede 
haber más de un 3, con lo que sólo pue- 
de ser 13156 1135. 


1315; da 4 muertos 


Todo buen programador encontrará 
claro el proceso deductivo. Una vez des- 
crito el juego, pasemos a escribir el pro- 
grama. 


_] Creación de la combinación 
10 secreta 


La combinación, como es lógico, debe 
crearla el programa al azar. La mayoría 
de compiladores de PASCAL disponen 
de alguna función para obtener números 
al azar que suelen tener nombres del es- 


program Combinaciones; 


var 
Aleatorio : 
Limite, 1,J: 


real; 
integer; 


QM 


procedure Arrancafzar; 


35. 


tilo de RANDOM; no obstante, como no es 
una función estándar, nosotros nos crea- 
remos la nuestra propia. 

El sistema que seguiremos es uno muy 
sencillo que para un problema como el 
nuestro es más que suficiente; consiste 
en lo siguiente: 

Dado un número aleatorio cualquiera 
comprendido entre O y 1, se obtiene uno 
nuevo a partir de él tomando la parte 
fraccionaria del resultado de multiplicar- 
lo por 997. 

De esta manera obtenemos, a partir de 
un número cualquiera (que en nuestro 
caso se lo daremos nosotros al ordena- 
dor) una secuencia de números aleato- 
rios. Si, por ejemplo, quisiéramos obtener 
números aleatorios enteros comprendi- 
dos entre 20 y 29, como los obtenidos es- 
tán comprendidos entre 0 y 1, bastará 
con multiplicarlos por 10, truncar a ente- 
ro el resultado (con lo que tendremos nú- 
meros entre O y 9) y sumarles 20. 

Vamos a escribir un pequeño progra- 
ma que presente combinaciones aleato- 
rias de Master Mind; podría ser algo así: 


1. Introducir un número cualquiera de 
arranque. 

2. Preguntar el límite superior de los 
posibles valores. 


3. Presentar unas cuantas combina- 
ciones. 


Utilizaremos un procedimiento para el 
punto 1 y otro para obtener números 
aleatorios. Cada vez que se llame a este 
último procedimiento, como es necesa- 
rio utilizar el número anterior, habrá que 
guardar a éste en una variable global 
(que llamaremos Aleatorio). 


ok) 


(kk Pide el primer número de la serie aleatoria %) 


var Ok: boolean; 
begin 


writeln (*Teclee un número entre O y 1, ambos exclusive.”*);3 


repeat 
readiln (Aleatorio); 


Okz= (0.0 < Aleatorio) and (Aleatorio < 1.0); 
if not Ok then writeln (*No vale. Repita:”) 


until Ok 
end; 


(cx 
function Azar (Inf.Sup: integer): 


¡€__  ÓOEOEPA zUlz-z-- A ÉÁ  ) 


integer; 


36! PASCAL 


(x 


var A: 
begin 
Aleatorio:= 


real; 


end; 


Arrancafzar; 


readln (Limite); 
writeln; 

for l:i= 1 to 20 do 
begin 


La función real predefinida Frac, que 
devuelve la parte fraccionaria de un nú- 
mero, no está disponible con todos los 
compiladores; si éste es nuestro caso, 
una solución alternativa sería cambiar la 
instrucción: 


Aleatorio:= frac (Aleatorio * 997); 


por: 


Aleatorio:= Aleatorio * 997; 
Aleatorio:= Aleatorio-trunc (Aleatorio); 


'O Obtención del número 
de muertos y. heridos 


Una vez que se ha obtenido una com- 
binación secreta, el programa debe pre- 
guntar combinaciones al jugador y de- 
volverle el número de heridos y muertos 
hasta que éstos sean 4. 


program MasterMind; 


var 
Aleatorio : real; 


51,S52,53,984, 
EY1,EZ,E3,C04, 
Muertos, 


Heridos, 


: integer; 


procedure ArrancaAzar; 


proporciona un número entero aleatorio x 
* entre Inf y Sup, ambos inclusive x) 


trac (Aleatorio * 997); 
Azar:= Inf + trunc (Aleatorio * (Sup — Inf + 1)) 


write (”"Números del 1 al...” 


(x Presentar 20 combinaciones k) 


for J:=1 to 4 do write (Azar (1, Limite));3 
writeln (k salta de línea tras cada combinación *) 


(k ¡OJO! xk) 


Para analizar el número de muertos bas- 
tará con comparar la primera cifra de la 
combinación secreta con la primera de 
la del jugador, la segunda con la segun- 
da, etc. 

Para los heridos, sin embargo, habrá 
que comparar cada cifra de una combi- 
nación con todas las de la otra que ocu- 
pen diferente posición. Hay que evitar 
que cifras que ya han dado lugar a muer- 
tos o heridos se vuelvan a contabilizar 
por haber varias repetidas; por ejemplo, 
si comparamos por las buenas 1234 con 
1122, obtendríamos un muerto y tres he- 
ridos, lo cual es erróneo. La solución más 
fácil es «tachar» cada cifra que haya 
dado lugar a un muerto o herido cam- 
biándole el valor a otro que sepamos se- 
guro que no va a poder proporcionar 
más coincidencias; para no perder la 
combinación original habrá, por tanto, 
que trabajar con una copia: 


(k Para guardar la clave secreta %*) 
(* Para guardar cada intento x) 


(k Pide el primer número de la serie aleatoria X) 


var Okz boolean; 
begin : 
writeln (*Teclee un número entre O y 1, ambos exclusive.”); 
repeat 

readin (Aleatorio); 

Ok:= (0.0 < Aleatorio) and (Aleatorio < 1.0); 

if not Ok then writeln (”No vale. Repita.”) 
until Ok 


function Azar (Inf,Sup: integer): integer; 
(cx proporciona un número entero aleatorio x 
x entre Inf y Sup, ambos inclusive x) 


var A: real; 


begin y 
Aleatorio:= frac (Aleatorio * 997); (kx ¡OJO! X) 
Azar:= Inf + trunc (Aleatorio * (Sup — Inf + 1)) 

end; 

AA e e x) 

procedure Analizar; 

(xXx Compara S1,S2,S3,S4 con C1,C2,C3,C4 y da x Y 
X el valor adecuado a Muertos y Heridos. x) 
var 

A1,A2,43,54: integer; 
begin 
(Ok Saca una copia de la clave secreta: *) 
Al:= Si; 
A2:= S2; 
A3:= S3; 
Ad:= S4; 


(kx Analiza los muertos: *) 
Muertos:= 0; 


if Al = [1 then begin Muertos:= Muertos + Ci:= -2 end; 
if A2 = C2 then begin Muertos:= Muertos + C2:= -2 end; 
if A3 = C3 then begin Muertos:= Muertos + C3:= -2 end; 
if A% = [4 then begin Muertos:= Muertos + 1; Ag:= -13 C4:= -2 end; 


(k Analiza los heridos; las instrucciones marcadas con asteriscos no 
son necesarias pues las variables afectadas no se van a comparar 
más; no obstante, se han dejado para tener una mayor regularidad  X*) 

Heridos:= 0; 


if Al = C2 then begin Heridos:= Heridos + 13 Al:= -13 C2:= -2 end; 
if Al = C3 then begin Heridos:= Heridos + 1; Al:r= -13 C3:= -2 end; 
14 Al = C4 then begin Heridos:= Heridos + 13 Al:= -13 C4:= -2 end; 
(xx) 
if A2 = C1 then begin Heridos:= Heridos + 1; A2:= -1;3 = -2 end; 
if A2 = C3 then begin Heridos:= Heridos + 1; = -2 end; 
if A2 = C4 then begin Heridos:= Heridos + 1; = -2 end; 
if A3 = Ci then begin Heridos:= Heridos + 1; = -2 end; 
if AS = C2 then begin Heridos:= Heridos + 1; = -2 end; 
if A3 = C4 then begin Heridos:= Heridos + 1; A3:= -1; C4:= -2 end; 
619) (kx) 
if AG = C1 then begin Heridos:= Heridos + 1; A4:= -13 Ci:= -2 (Xx) end; 
if Ad = C2 then begin Heridos:= Heridos + 13 A4:= -13 C2:= -2 (Xx) end; 
if A4 = C3 then begin Heridos:= Heridos + 1; A4:= -1;5 C3:= -2 (**) end; 
119 
end; 
AAA A A x) 
begin 
ArrancaAzar; 


write (*Números del 1 al...”); 
readin (Limite); 


repeat (X repetir partidas 1%) 
(kx Primero, inventarse una clave: %*) 
Sl:= Azar (1, Limite); 
S2:= Azar (1, Limite); 
S3:= Azar (1, Limite); 
S4:= Azar (1, Limite); 


Aleatorio:= frac (Aleatorio * 997); 


Aleatorio:= Aleatorio * 997; 
Aleatorio:= Aleatorio - trunc (Aleatorio); 


se PASCAL 


Obtención del número de muertos. y heridos. 
ClrScr; (* o PAGE, para borrar la pantalla x) 
writeln (*Tras cada cifra, pulse Intro.*); 
writeln; 
(kx Pedir y analizar combinaciones: 
write (*Clave: ”)3 
read (C1); 

read (02); 

read (03); 

read (04):3 


Analizar; 


writeln (1? m=*,Muertos,?  h=”",Heridos) 
until Muertos = 4; 


writeln; 
write (*¿ Desea otra partida ? (S/N) 200 
readin (Letra) 


writeln (*Adiós.”) 


Como ejercicio, se podría modificar el Dentro de poco veremos cómo el ana- 
programa para que compruebe que los lista se puede hacer de una manera mu- 
números tecleados son correctos. Tam- cho más elegante. ' 
bién se podría mejorar el aspecto estético. 


¡Qué es 
un array? 


N array es una estruc- 
tura de datos forma- 
da por elementos del 
mismo tipo y utiliza- 
dos para almacenar 
una serie de datos 
que nuestro progra- 
ma necesita. Por 
Slomplo, podremos guardar las vocales 
en un array compuesto por cinco ele- 
mentos. 

Veamos algunas formas de declarar 
arrays: 


int bl20); 
static int vectorl561; 


exter int meses [12]; 


VECTOR (1) 
VECTOR (2) 


VECTOR (50) 


[A Un array unidimensional de 50 elementos lla- * 


mado «vector». 


qu Arrays multidimensionales 


Los arrays vistos anteriormente se de- 
nominan arrays unidimensionales o vec- 


OTROS LENGUAJES 


ARRAYS Y PUNTEROS 


. 


tores. Un array cuyos elementos sean 
arrays unidimensionales se llama array 
bidimensional. De manera análoga po- 
dríamos definir un array tridimensional y 
así sucesivamente. Para entender mejor 
este concepto supongamos que defini- 
mos el siguiente array: 


Este array queda definido como una 
matriz de 3 x 3 elementos en coma flo- 
tante y doble precisión. 


Punteros 


Si en la literatura especializada usted 
encuentra en alguna ocasión la palabra 
«pointers», tradúzcala por puntero, pues 
ese es su significado, pero dejando apar- 
te la lingúística, diremos que un puntero 
es un tipo de variable cuyo contenido es 
una dirección de memoria, donde hay 
un dato que nos puede ser de interés en 
un momento dado. 


ME E 


[A Enlace de datos por medio de punteros. 


El operador que nos proporciona un 
puntero a un variable es el operador és. 


40 OTROS LENGUAJES 


Por ejemplo, si «y» es una variable, un 
puntero a dicha variable es Ey. 

La teoría de punteros puede parecer 
complicada y confusa para los princi- 
piantes en este tipo de variables (algo 
parecido ocurre cuando utilizamos muy 
a menudo la «proscrita» sentencia «go- 
to»), pero siendo ordenados en nues- 
tros planteamientos, se pueden emplear 
para conseguir una mayor claridad y sim- 
plicidad de nuestros programas. 

En C también existen variables punte- 
ro, es decir, no sólo se asigna a una va- 
riable int un entero o a una variable char 
un carácter, también a una variable pun- 
tero se le podrá asignar como valor una 
dirección. 

Por ejemplo: 


puní = hveci 


asignará la dirección de veet a punt, o lo 
que es igual, se dice que punt está apun- 
tando a vect. 

El operador indirección * accede a la 
variable apuntada por un determinado 
puntero. 

Veamos cómo debemos declarar en 
un programa los punteros: 


* 


“o 


En las declaraciones anteriores, la pri- 
mera nos dice que «pa» es un puntero y 
que «pa» es de tipo entero, es decir, el 
valor (pa) apuntado por «po» es de tipo 
entero. Algo análogo sucede con float 
»pf, excepto que es un puntero a una va- 
riable float. 


. 


[| Punteros y funciones 


La utilización de punteros para comu- 
nicación entre funciones permite alterar 
las variables de forma parecida a como 
se modifican los parámetros por «varia- 
ble» del Pascal. 


ID Punteros y arrays 


En C existe una estrecha relación entre 
punteros y arrays lo suficientemente fuer- 
te como para que se les trate simultánea- 
mente. Cualquier tratamiento que poda- 
mos hacer con arrays es susceptible de 


poderse hacer con punteros, pero consl- 


.guiendo una mayor rapidez con estos úl- 


timos, aunque su comprensión será más 
difícil. 
Supongamos un array llamado «tabla»: 


q A A AN 

La igualdad anterior se cumple porque 
tanto «tabla» como extabla(0) representan 
la dirección de memoria del primer ele- 
mento. Ambos términos no podrán cam- 
biar su valor, pero pueden ser asignados 


a una variable «puntero» y podemos mo- 
dificar su valor. 


IO Arrays y funciones 


Los arrays, al igual que sucede en Pas- 
cal, pueden aparecer como argumentos 
de funciones. Si intentamos pasar el nom- 
bre de un array como argumento de una 
función, lo que realmente estamos pa- 
sando es un puntero, y esta circunstan- 
cia es aprovechada por_la función para 
realizar los cambios necesarios en el 
array. 


7] Operaciones básicas 
IO con punteros 


Con punteros podemos realizar tres ope- 
raciones: 


— Asignación: 
Siempre podemos asignar una direc- 
ción a un puntero. 


— Incremento: 

Un puntero puede ser incrementado 
utilizando el operador de incremento. De 
forma similar podemos decrementarlo. 


— Diferencia de punteros: 

Es posible hallar la diferencia de dos 
punteros que apuntan al mismo array 
para averiguar el número de elementos 
que existen entre ellos. 
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